home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / UDPRecv.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  501 b   |  27 lines
  1. ;;This is the UDP Server
  2. ;;Start this first
  3.  
  4. ; Start The UDP Services
  5. ;==============================================
  6. UDPStartup()
  7.  
  8. ; Bind to a SOCKET
  9. ;==============================================
  10. $socket = UDPBind("127.0.0.1", 65532)
  11. If @error <> 0 Then Exit
  12.  
  13. While 1
  14.     $data = UDPRecv($socket, 50)
  15.     If $data <> "" Then
  16.         MsgBox(0, "UDP DATA", $data, 1)
  17.     EndIf
  18.     sleep(100)
  19. WEnd
  20.  
  21. Func OnAutoItExit()
  22.     UDPCloseSocket($socket)
  23.     UDPShutdown()
  24. EndFunc
  25.  
  26.  
  27.